home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1989 June / 64er_Magazin_89-06_1989_Markt__Technik_de_Side_A.d64 / raster m.src (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  138 lines
  1. 0 ; (NULL)aster-(NULL)aster 0.11 31.10.1988
  2. 1 ; (c) 1988 by  (NULL) len
  3. 2 ;
  4. 3 .gl bild      = $1b    ;an
  5. 4 .eq zeile1    = $26
  6. 5 .eq zeile2    = zeile1+2
  7. 6 .eq normal    = 14
  8. 7 ;
  9. 8 .gl irqvect   = $0314
  10. 9 ;
  11. 10 .gl vicctrl1  = $d011  ;(NULL)right$len-control-reg.
  12. 11 .gl raster    = $d012
  13. 12 .gl irqflags  = $d019
  14. 13 .eq irqmasks  = $d01a
  15. 14 .eq border    = $d020
  16. 15 ;
  17. 16 .eq cia1icr   = $dc0d
  18. 17 ;
  19. 18 .eq oldirq    = $ea31
  20. 19 .eq irqret    = $ea7e
  21. 20 ;
  22. 21 ;***** (NULL)akros *****
  23. 22 .ma setirq (zeile)
  24. 23  lda#bild!o!((zeile/2)!a!$80)
  25. 24  stavicctrl1
  26. 25  lda#<(zeile)
  27. 26  staraster
  28. 27  lda#$ff;loeschen
  29. 28  stairqflags
  30. 29 .rt
  31. 30 ;
  32. 31 .ma setvect (rout)
  33. 32  lda#<(rout)
  34. 33  ldy#>(rout)
  35. 34  stairqvect
  36. 35  styirqvect+1
  37. 36 .rt
  38. 37 ;
  39. 38 ;+++++ (NULL)tartadresse +++++
  40. 39 ;
  41. 40  .ba$9000
  42. 41 ;
  43. 42  jmpinit
  44. 43  jmpaus
  45. 44 ;
  46. 45 ;***** (NULL)orbereitung *****
  47. 46 init sei
  48. 47 ; (NULL)imer-right$(NULL)(NULL) verhindern
  49. 48  lda#$7f
  50. 49  stacia1icr
  51. 50 ; (NULL)aster-right$(NULL)(NULL) erlauben
  52. 51  lda#$01
  53. 52  stairqmasks
  54. 53 ;
  55. 54  ...setvect(rout)
  56. 55  ...setirq(zeile1)
  57. 56  cli
  58. 57 ;
  59. 58  rts
  60. 59 ;
  61. 60 ;***** valnde *****
  62. 61 aus sei
  63. 62 ; (NULL)aster-right$(NULL)(NULL) verhindern
  64. 63  lda#$00
  65. 64  stairqmasks
  66. 65 ; (NULL)imer-right$(NULL)(NULL) erlauben
  67. 66  lda#$81
  68. 67  stacia1icr
  69. 68  ...setvect(oldirq)
  70. 69 ;
  71. 70  cli
  72. 71  rts
  73. 72 ;
  74. 73 ;***** right$rq-(NULL)outinen *****
  75. 74 ;
  76. 75 toolate jmpirqret
  77. 76 ;
  78. 77 ;----- gruener (NULL)trich = '(NULL)aster-(NULL)aster'
  79. 78 ;
  80. 79 rout lda#<(zeile2)
  81. 80  cmpraster
  82. 81  bcctoolate
  83. 82  beqtoolate
  84. 83 ;
  85. 84 wzeile cmpraster
  86. 85  bnewzeile
  87. 86 ;
  88. 87  ldx#10
  89. 88 warte1 dex
  90. 89  bnewarte1
  91. 90 ;
  92. 91  nop
  93. 92  ldaraster;59-66
  94. 93  cmp#<(zeile2+1)
  95. 94  beqok1
  96. 95  bit$aa
  97. 96  nop
  98. 97 ; 68-71
  99. 98 ok1 ldx#9
  100. 99 warte2 dex
  101. 100  bnewarte2
  102. 101 ;
  103. 102  nop
  104. 103  nop
  105. 104  nop
  106. 105  ldaraster;124-127
  107. 106  cmp#<(zeile2+2)
  108. 107  beqok2
  109. 108  bit$aa
  110. 109 ; 131-132
  111. 110 ok2 ldx#10
  112. 111 warte3 dex
  113. 112  bnewarte3
  114. 113 ;
  115. 114  nop
  116. 115  ldaraster;188-189
  117. 116  cmp#<(zeile2+3)
  118. 117  bneok3
  119. 118 ; 194!
  120. 119 ;---------
  121. 120 ok3 ldx#3
  122. 121 warte4 dex
  123. 122  bnewarte4
  124. 123 ;
  125. 124  nop
  126. 125  nop
  127. 126  nop
  128. 127  lda#0
  129. 128  staborder
  130. 129  lda#normal
  131. 130  staborder
  132. 131 ;
  133. 132  lda#$ff
  134. 133  stairqflags
  135. 134  jmpoldirq
  136. 135 ;
  137. 136 ;+ + + + +   val (NULL) str$ val   + + + + +
  138.